home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE23 / PZAZZDEM / PZAZZDEM.ZIP / PZDEMO / PZDBPANE.PAS < prev    next >
Pascal/Delphi Source File  |  1997-01-02  |  2KB  |  69 lines
  1. unit Pzdbpane;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, PZBPanel, PZShaded, StdCtrls, PZLabel, Buttons;
  8.  
  9.  
  10. type
  11.   TPZBitmapPanelForm = class(TForm)
  12.     HeaderPanel: TPZBitmapPanel;
  13.     PZShaded1: TPZShaded;
  14.     DescrPanel: TPZBitmapPanel;
  15.     PZLabel4: TPZLabel;
  16.     ResultsPanel: TPZBitmapPanel;
  17.     PZLabel5: TPZLabel;
  18.     PZLabel2: TPZLabel;
  19.     OutputPanel3: TPZBitmapPanel;
  20.     ExamplePanel3: TPZBitmapPanel;
  21.     OutputPanel1: TPZBitmapPanel;
  22.     ExamplePanel1: TPZBitmapPanel;
  23.     OutputPanel2: TPZBitmapPanel;
  24.     ExamplePanel2: TPZBitmapPanel;
  25.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure FormDeactivate(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   PZBitmapPanelForm: TPZBitmapPanelForm;
  36.  
  37. implementation
  38.  
  39. Uses PZDMain;
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TPZBitmapPanelForm.FormCreate(Sender: TObject);
  44.  
  45. Begin
  46.   SetBounds(10,10,MainForm.ClientWidth-20,MainForm.ClientHeight-MainForm.MainPanel.Height-20);
  47.   HeaderPanel.Background.LoadBitmap('PZD_STONE');
  48.   DescrPanel.Background.LoadBitmap('PZD_STONE');
  49.   ResultsPanel.Background.LoadBitmap('PZD_STONE');
  50.   OutputPanel1.Background.LoadBitmap('PZD_STONE');
  51.   OutputPanel2.Background.LoadBitmap('PZD_STONE');
  52.   OutputPanel3.Background.LoadBitmap('PZD_STONE');
  53.   ExamplePanel1.Background.LoadBitmap('PZD_MARBLE');
  54.   ExamplePanel2.Background.LoadBitmap('PZD_FLAMES');
  55. End;
  56.  
  57. procedure TPZBitmapPanelForm.FormClose(Sender: TObject;  var Action: TCloseAction);
  58.  
  59. Begin
  60.   Action:=caFree;
  61. End;
  62.  
  63. procedure TPZBitmapPanelForm.FormDeactivate(Sender: TObject);
  64. begin
  65.   Close;
  66. end;
  67.  
  68. end.
  69.